
*===============================================================================
* Title: Master Two Levels
* Date: Jan 23rd
* Author: Agatha Kratz, Alexander Wuttke
*===============================================================================
*ssc install blindschemes, replace
*ssc install PANELS, replace
*ssc install estout, replace
*set scheme plotplainblind, perm


/* Der Datensatz ZA6804; Version 4.0.0, die Welle zur Niedersachsenwahl und das
dofile zur Definition der missing werden auf der GLES-Projektseite von
gesis.org/gles zum Herunterladen bereitgestellt. Die Niedersachsenwelle kann über 
die laufende Nummer lfdn an das Wahlkampf-Panel 2017 herangespielt werden.

use "ZA6804_v4-0-0.dta", clear
merge lfdn using "Niedersachsenwelle.dta"
drop _merge
do "ZA6804_missing.do"
save "ZA6804_v4-0-0_plus_NIwelle.dta", replace
*/


*Working Directory
cd "L:\GLES\Gemeinsame Forschung\Two Levels"

clear
clear matrix
clear mata
set maxvar 30000

//Wo liegen die Daten?
use "ZA6804_v4-0-0_plus_NIwelle.dta", clear

*---------------------------------------------------------------
* Rename prefix to make loops easier
*---------------------------------------------------------------

renpfix kpN_ kp9_ // Niedersachsenwelle
renpfix kpa1_ kp0_ // 1. Aufstockerwelle

*---------------------------------------------------------------
* Drop variables and observations not needed for analysis
*---------------------------------------------------------------


* Bei Wiederbefragten (gruppe=2) ohne vorliegende Angaben zum aktuellen
* Bundesland und zur Schulbildung, wurden die Angaben aus dem Wahlkampf-Panel 
* 2013 verwendet (Datensatz ZA5704, Version 3.2.0).
merge 1:1 lfdn using "L:\GLES\Gemeinsame Forschung\Two Levels\Schulbildung_Bundesland_lfdn13.dta"
drop if _merge==2
replace kp1_2601=bundesland2013 if  missing(kp1_2601) & gruppe==2
drop _merge

keep if kp1_2601==3

*-------------------------------
* Participation in Niedersachsen wave
*-----------------------------
foreach x of numlist 9 {
	gen w`x'a=inlist(kp`x'_dispcode,22,31,32) // es gelten die Personen als angefangen, die nicht an der Verifizierung gescheitert sind (vorige Abbrüche werden als begonnen gewertet)
	gen w`x'b=inlist(kp`x'_dispcode,31,32)
	label var w`x'a "Wellenteilnahme Welle `x' angefangen"
	label var w`x'b "Wellenteilnahme Welle `x' beendet"
	label define W`x'A 0 "Umfrage nicht begonnen" 1 "Interview abgebrochen/beendet (nach Verifizierung)", modify
	label val w`x'a W`x'A
	label define W`x'B 0 "abgebrochen | nicht teilgenommen" 1 "Interview beendet", modify
	label val w`x'b W`x'B
}


*-------------------------------
* Run do files
*-----------------------------

run "recode_sozdem_stable.do" 
run "macros.do"										//Global macros for loops and variables
run "recode_votechoice.do"
run "recode_attitudes.do"
run "recode_communication.do"
run "recode_moderators_involvement_identity.do"

run "recode_timetoelection.do"						//Variable: Number of week to election. Necessary for intrainidividual regressions
run "recode_intraindividual regression.do"
run "recode_lazarsfeld.do"


